perm filename S2[1,LCS] blob
sn#330343 filedate 1978-01-20 generic text, type T, neo UTF8
1) SC2.F4[1,LCS] and 2) SC2.F4[SCR,LCS] 1-20-78 14:30 pages 2,2
**** File 1) SC2.F4[1,LCS], Page 2 line 62
1) 1074 JFM(1)=' (A'
1) CALL FMT(JFM,JNP,MLX)
**** File 2) SC2.F4[SCR,LCS], Page 2 line 62
2) 1074 IF(INP1.EQ.IBLA.OR.INP1.EQ.32347529280)GO TO 2308
2) C ABOVE FOR COMMENTS DOESN'T CATCH THIS WITH SOS FILES⊗⊗⊗⊗⊗⊗⊗⊗⊗⊗⊗⊗
2) C BIG NUM = '<'
2) JFM(1)=' (A'
2) CALL FMT(JFM,JNP,MLX)
***************
**** File 1) SC2.F4[1,LCS], Page 2 line 221
1) IF(INP1.EQ.IBLA)GO TO 7773
1) IF(JED)GO TO 77733
**** File 2) SC2.F4[SCR,LCS], Page 2 line 224
2) CQQQ IF(INP1.EQ.IBLA)GO TO 7773
2) IF(INP1.EQ.IBLA.OR.INP1.EQ.32347529280)GO TO 7773
2) C ABOVE FOR COMMENTS. BIG NUM = '<'
2) IF(JED)GO TO 77733
***************
**** File 1) SC2.F4[1,LCS], Page 3 line 347
1) IF(DUR(LK))DUR(LK)=1000
1) GO TO 1042
**** File 2) SC2.F4[SCR,LCS], Page 3 line 347
2) IF(DUR(LK))DUR(LK)=10000
2) GO TO 1042
***************